On error resume next
Dim cmd, a
Set cmd = CreateObject("WScript.Shell")
a = cmd.RegRead("HKLM\SOFTWARE\Mynte\InstallationFolder")
Wscript.Echo(a)
cmd.CurrentDirectory = cmd.RegRead("HKLM\SOFTWARE\Mynte\InstallationFolder")
cmd.Run "cmd /c .\InstallationOperation\InstallationOperation.exe"
cmd = null